home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1996 January / 64er_Magazin_96-01_1996_Markt__Technik_de_Side_A.d64 / swap in.demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  780b  |  29 lines
  1. 5 ifa=0thena=1:load"swap in.ass",8,1
  2. 10 ifa=0thena=1:load"swap in.ass",8,1
  3. 20 sys49152
  4. 30 print"[147]"
  5. 40 gosub200
  6. 50 gett$:ift$=""then50
  7. 60 fori=14to214:poke176,i:next
  8. 70 print""
  9. 80 gett$:ift$=""then80
  10. 90 gosub 300
  11. 100 fori=214to14step-1:poke176,i:next
  12. 110 goto 50
  13. 200 rem screen 1 aufbauen
  14. 210 print"";
  15. 220 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  16. 230 print"[221]                                      [221]";
  17. 240 print"[221]  das ist der erste demo-bildschirm   [221]";
  18. 250 print"[221]                                      [221]";
  19. 260 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  20. 270 return
  21. 300 rem screen 2 aufbauen
  22. 310 print"";
  23. 320 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  24. 330 print"[221]                                      [221]";
  25. 340 print"[221]  das ist der zweite demo-bildschirm  [221]";
  26. 350 print"[221]                                      [221]";
  27. 360 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  28. 370 return
  29.